! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Utility Data Module File
! 
! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : aromatics_kpp_Monitor.f90
! Time                 : Thu Jan  7 01:53:05 2021
! Working directory    : /n/home08/kbates/Aromatics/GC_new3
! Equation file        : aromatics_kpp.kpp
! Output root filename : aromatics_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE aromatics_kpp_Monitor


  CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_0 = (/ &
     'C2H4           ','CO2            ','DHDN           ', &
     'IMAE           ','ISN1OG         ','LVOC           ', &
     'MBO            ','MBOOO          ','PMNO2          ', &
     'PYAC           ','H              ','MNO3           ', &
     'RCOOH          ','BRO2           ','XRO2           ', &
     'TRO2           ','MVKPC          ','LISOPOH        ', &
     'LISOPNO3       ','LBENZ          ','LTOLU          ', &
     'LXYLE          ','PGLYX          ','PCH2O          ', &
     'PHCOOH         ','PACTA          ','PMGLY          ', &
     'PCRESOL        ','PPHENOL        ','PBZALD         ', &
     'PBENZP         ','PNPHEN         ','PCATECH        ', &
     'O1D            ','CH4m           ','C3H8           ', &
     'DHDC           ','N2O5           ','PMNN           ', &
     'PPN            ','IEPOXD         ','CH4            ', &
     'COm            ','BENZ           ','ALK4           ', &
     'IEPOXB         ','C2H6           ','IEPOXA         ', &
     'MAP            ','HNO2           ','BZCO3H         ', &
     'MPN            ','TOLU           ','XYLE           ', &
     'IMAO3          ','MPNm           ','MP             ', &
     'HNO4           ','RA3P           ','RB3P           ', &
     'MPm            ','BZPAN          ','ETP            ', &
     'H2             ','BZALD          ','BENZP          ', &
     'PAN            ','RP             ','O              ', &
     'PP             ','PRPN           ','EOH            ', &
     'H2O2           ','HPALD          ','R4P            ', &
     'CRESOL         ','PHENOL         ','ATOOH          ', &
     'DHPCARP        ','MRP            ','RIPB           ', &
     'HPC52O2        ','VRP            ','IAP            ', &
     'HC187          ','MOBA           ','DHMOB          ', &
     'RIPA           ','RIPD           ','ISNP           ' /)
  CHARACTER(LEN=15), PARAMETER, DIMENSION(87) :: SPC_NAMES_1 = (/ &
     'HCOOH          ','MAOP           ','CATECH         ', &
     'ETHLN          ','AROMP          ','IDC            ', &
     'MVKOO          ','INPN           ','MOHm           ', &
     'NPMN           ','CH3CHOO        ','BENZO          ', &
     'MOBAOO         ','MGLYOO         ','DIBOO          ', &
     'ROH            ','MACRNO2        ','ACET           ', &
     'MGLOO          ','IPMN           ','MACROO         ', &
     'ISOPNB         ','CH2OO          ','ISOP           ', &
     'PRPE           ','ACTA           ','HNO3           ', &
     'MVKN           ','GAOO           ','ISNOHOO        ', &
     'IEPOXOO        ','MOH            ','ISNOOB         ', &
     'BZCO3          ','GLYX           ','CH2Om          ', &
     'AROMRO2        ','A3O2           ','BENZO2         ', &
     'ISOPNDO2       ','MACRN          ','MAN2           ', &
     'PROPNN         ','ISOPNBO2       ','ISNOOA         ', &
     'MAOPO2         ','B3O2           ','GLYC           ', &
     'ISOPND         ','NPHEN          ','VRO2           ', &
     'ATO2           ','HC5OO          ','PO2            ', &
     'PRN1           ','NMAO3          ','ETO2           ', &
     'KO2            ','CH2O           ','ISN1           ', &
     'MGLY           ','MRO2           ','HC5            ', &
     'RIO2           ','HAC            ','MACR           ', &
     'INO2           ','R4O2           ','ALD2           ', &
     'MVK            ','RCO3           ','R4N1           ', &
     'RCHO           ','NO             ','NO2            ', &
     'NO3            ','MCO3           ','MEK            ', &
     'O3             ','MO2            ','MO2m           ', &
     'HO2            ','CO             ','R4N2           ', &
     'OH             ','H2O            ','O2             ' /)
  CHARACTER(LEN=15), PARAMETER, DIMENSION(177) :: SPC_NAMES = (/&
    SPC_NAMES_0, SPC_NAMES_1 /)

  INTEGER, PARAMETER, DIMENSION(177) :: LOOKAT = (/ &
       1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, &
      13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, &
      25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, &
      37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, &
      49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, &
      61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, &
      73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, &
      85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, &
      97, 98, 99,100,101,102,103,104,105,106,107,108, &
     109,110,111,112,113,114,115,116,117,118,119,120, &
     121,122,123,124,125,126,127,128,129,130,131,132, &
     133,134,135,136,137,138,139,140,141,142,143,144, &
     145,146,147,148,149,150,151,152,153,154,155,156, &
     157,158,159,160,161,162,163,164,165,166,167,168, &
     169,170,171,172,173,174,175,176,177 /)

  INTEGER, DIMENSION(1) :: MONITOR
  CHARACTER(LEN=15), DIMENSION(1) :: SMASS
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ &
     '             O --> O3                                                                               ', &
     '        O + O3 --> O2                                                                               ', &
     '        O + NO --> NO2                                                                              ', &
     '       O + NO2 --> NO                                                                               ', &
     '       O + NO2 --> NO3                                                                              ', &
     '           O1D --> O                                                                                ', &
     '       NO + O3 --> NO2                                                                              ', &
     '      NO2 + O3 --> NO3                                                                              ', &
     '          2 NO --> 2 NO2                                                                            ', &
     '      NO + NO3 --> 2 NO2                                                                            ', &
     '     NO2 + NO3 --> NO + NO2                                                                         ', &
     '     NO2 + NO3 --> N2O5                                                                             ', &
     '           O1D --> 2 OH                                                                             ', &
     '       O3 + OH --> HO2                                                                              ', &
     '       H2 + OH --> HO2                                                                              ', &
     '     H2O2 + OH --> HO2                                                                              ', &
     '      O3 + HO2 --> OH                                                                               ', &
     '      HO2 + OH --> O2                                                                               ', &
     '         2 HO2 --> H2O2                                                                             ', &
     '       NO + OH --> HNO2                                                                             ', &
     '      NO2 + OH --> HNO3                                                                             ', &
     '      NO3 + OH --> NO2 + HO2                                                                        ', &
     '      NO + HO2 --> NO2 + OH                                                                         ', &
     '     NO2 + HO2 --> HNO4                                                                             ', &
     '     HNO4 + OH --> NO2                                                                              ', &
     '     NO3 + HO2 --> NO2 + OH                                                                         ', &
     '     HNO2 + OH --> NO2                                                                              ', &
     '     HNO3 + OH --> NO3                                                                              ', &
     '            O3 --> O1D                                                                              ', &
     '            O3 --> O                                                                                ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ &
     '          H2O2 --> 2 OH                                                                             ', &
     '           NO2 --> O + NO                                                                           ', &
     '           NO3 --> NO                                                                               ', &
     '           NO3 --> O + NO2                                                                          ', &
     '          HNO2 --> NO + OH                                                                          ', &
     '          HNO3 --> NO2 + OH                                                                         ', &
     '         2 NO3 --> 2 NO2 + O2                                                                       ', &
     '          N2O5 --> NO2 + NO3 + O2                                                                   ', &
     '          HNO4 --> 0.95 NO2 + 0.05 NO3 + 0.95 HO2 + 0.05 OH                                         ', &
     '          N2O5 --> NO2 + NO3                                                                        ', &
     '          HNO4 --> NO2 + HO2                                                                        ', &
     '      CH4 + OH --> MO2 + H2O                                                                        ', &
     '      NO + MO2 --> CH2O + NO2 + HO2                                                                 ', &
     '     MO2 + HO2 --> MP + O2                                                                          ', &
     '         2 MO2 --> MOH + CH2O + O2                                                                  ', &
     '         2 MO2 --> 2 CH2O + 2 HO2                                                                   ', &
     '     NO2 + MO2 --> MPN                                                                              ', &
     '           MPN --> NO2 + MO2                                                                        ', &
     '       MP + OH --> MO2 + H2O                                                                        ', &
     '       MP + OH --> CH2O + OH + H2O                                                                  ', &
     '     CH2O + OH --> PCH2O + HO2 + CO + H2O                                                           ', &
     '    CH2O + NO3 --> HNO3 + HO2 + CO                                                                  ', &
     '      MOH + OH --> CH2O + HO2                                                                       ', &
     '       CO + OH --> CO2 + HO2                                                                        ', &
     '            MP --> CH2O + HO2 + OH                                                                  ', &
     '          CH2O --> PCH2O + 2 HO2 + CO                                                               ', &
     '          CH2O --> PCH2O + H2 + CO                                                                  ', &
     '           MPN --> CH2O + NO3 + HO2                                                                 ', &
     '           MPN --> NO2 + MO2 + O2                                                                   ', &
     '     CH4m + OH --> MO2m + H2O                                                                       ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ &
     '     NO + MO2m --> CH2Om + NO2 + HO2                                                                ', &
     '    MO2m + HO2 --> MPm + O2                                                                         ', &
     '        2 MO2m --> MOHm + CH2Om + O2                                                                ', &
     '        2 MO2m --> 2 CH2Om + 2 HO2                                                                  ', &
     '    MO2 + MO2m --> 0.5 MOHm + 0.5 MOH + 0.5 CH2Om + 0.5 CH2O                                        ', &
     '    MO2 + MO2m --> CH2Om + CH2O + 2 HO2                                                             ', &
     '    NO2 + MO2m --> MPNm                                                                             ', &
     '          MPNm --> NO2 + MO2m                                                                       ', &
     '      MPm + OH --> MO2m + H2O                                                                       ', &
     '      MPm + OH --> CH2Om + OH + H2O                                                                 ', &
     '    CH2Om + OH --> COm + HO2 + H2O                                                                  ', &
     '   CH2Om + NO3 --> COm + HNO3 + HO2                                                                 ', &
     '     MOHm + OH --> CH2Om + HO2                                                                      ', &
     '      COm + OH --> CO2 + HO2                                                                        ', &
     '           MPm --> CH2Om + HO2 + OH                                                                 ', &
     '         CH2Om --> COm + 2 HO2                                                                      ', &
     '         CH2Om --> COm + H2                                                                         ', &
     '          MPNm --> CH2Om + NO3 + HO2                                                                ', &
     '          MPNm --> NO2 + MO2m + O2                                                                  ', &
     '   A3O2 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 CH2Om + 0.75 RCHO + HO2 ... etc.                     ', &
     '    PO2 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 CH2Om + 0.5 CH2O + 0.16 HAC ... etc.                 ', &
     '   ETO2 + MO2m --> 0.25 EOH + 0.25 MOHm + 0.75 CH2Om + 0.75 ALD2 + HO2 ... etc.                     ', &
     '   R4O2 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.16 ACET + 0.75 CH2Om + 0.03 A3O2 ... etc.               ', &
     '   R4N1 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 CH2Om + 0.2 CH2O + 0.15 R4O2 ... etc.                ', &
     '   ATO2 + MO2m --> 0.5 MOHm + 0.5 CH2Om + 0.5 MGLY + 0.2 HAC + 0.3 MCO3 ... etc.                    ', &
     '    KO2 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 CH2Om + 0.5 ALD2 + 0.5 MCO3 ... etc.                 ', &
     '   B3O2 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 ACET + 0.75 CH2Om + HO2 ... etc.                     ', &
     '   PRN1 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 CH2Om + 0.5 CH2O + 0.5 ALD2 ... etc.                 ', &
     '   RCO3 + MO2m --> CH2Om + ETO2 + HO2                                                               ', &
     '   RCO3 + MO2m --> RCOOH + CH2Om                                                                    ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ &
     '   MCO3 + MO2m --> CH2Om + MO2 + HO2                                                                ', &
     '   MCO3 + MO2m --> ACTA + CH2Om                                                                     ', &
     '    ATOOH + OH --> ATO2 + H2O                                                                       ', &
     '    ATOOH + OH --> MGLY + OH + H2O                                                                  ', &
     '    HCOOH + OH --> CO2 + PHCOOH + HO2 + H2O                                                         ', &
     '     ALD2 + OH --> 0.05 CH2O + 0.95 MCO3 + 0.05 HO2 + 0.05 CO + H2O                                 ', &
     '    ALD2 + NO3 --> HNO3 + MCO3                                                                      ', &
     '    NO2 + MCO3 --> PAN                                                                              ', &
     '           PAN --> NO2 + MCO3                                                                       ', &
     '     NO + MCO3 --> CO2 + NO2 + MO2                                                                  ', &
     '     C2H6 + OH --> ETO2 + H2O                                                                       ', &
     '     ETO2 + NO --> ALD2 + NO2 + HO2                                                                 ', &
     '     C3H8 + OH --> B3O2                                                                             ', &
     '     C3H8 + OH --> A3O2                                                                             ', &
     '     A3O2 + NO --> RCHO + NO2 + HO2                                                                 ', &
     '      PO2 + NO --> CH2O + ALD2 + NO2 + HO2                                                          ', &
     '     ALK4 + OH --> R4O2                                                                             ', &
     '     R4O2 + NO --> 0.32 ACET + 0.05 A3O2 + 0.18 B3O2 + 0.32 ETO2 + 0.32 ALD2 ... etc.               ', &
     '     R4O2 + NO --> R4N2                                                                             ', &
     '     R4N1 + NO --> 0.57 CH2O + 0.86 ALD2 + 0.57 RCHO + 2 NO2                                        ', &
     '     ATO2 + NO --> CH2O + NO2 + MCO3                                                                ', &
     '      KO2 + NO --> 0.93 ALD2 + 0.93 NO2 + 0.93 MCO3 + 0.07 R4N2                                     ', &
     '     RIO2 + NO --> 0.03 DIBOO + 0.081 ISOPNB + 0.009 ISOPND + 0.82 CH2O ... etc.                    ', &
     '          RIO2 --> 0.5 HPALD + 0.5 DHPCARP                                                          ', &
     '     VRO2 + NO --> 0.12 MVKN + 0.53 GLYC + 0.35 CH2O + 0.35 MGLY + 0.88 NO2 ... etc.                ', &
     '     MRO2 + NO --> 0.15 MACRN + 0.122 CH2O + 0.122 MGLY + 0.728 HAC + 0.85 NO2 ... etc.             ', &
     '          MRO2 --> HAC + CO + OH                                                                    ', &
     '     MAN2 + NO --> 0.5 PROPNN + 0.5 CH2O + 0.5 MGLY + 1.5 NO2 + 0.5 CO ... etc.                     ', &
     '     B3O2 + NO --> ACET + NO2 + HO2                                                                 ', &
     '     INO2 + NO --> 0.07 CH2O + 0.7 ISN1 + 0.23 HC5 + 0.035 MACR + 0.035 MVK ... etc.                ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ &
     '    INO2 + NO3 --> 0.07 CH2O + 0.7 ISN1 + 0.23 HC5 + 0.035 MACR + 0.035 MVK ... etc.                ', &
     '    ISN1 + NO3 --> 0.6 HNO3 + 0.4 ISNOOB + 0.6 ISNOOA                                               ', &
     '  ISNOOA + NO3 --> 0.04 ISN1OG + 0.96 PROPNN + NO2 + HO2 + CO                                       ', &
     '   ISNOOA + NO --> 0.04 ISN1OG + 0.96 PROPNN + NO2 + HO2 + CO                                       ', &
     '  ISNOOA + NO2 --> 0.04 ISN1OG + 0.96 IPMN                                                          ', &
     '  ISNOOA + HO2 --> 0.04 ISN1OG + 0.25 RCOOH + 0.75 RP + 0.96 NO2 + 0.25 O3 ... etc.                 ', &
     '  ISNOOB + NO3 --> 0.04 ISN1OG + GLYX + 0.94 PROPNN + 2 NO2                                         ', &
     '   ISNOOB + NO --> 0.04 ISN1OG + 0.94 GLYX + 0.9 PROPNN + 1.88 NO2                                  ', &
     '  ISNOOB + HO2 --> 0.04 ISN1OG + 0.96 INPN                                                          ', &
     '  ISNOOB + MO2 --> 0.04 ISN1OG + 0.25 MOH + 0.7 GLYX + 0.66 PROPNN + 0.75 CH2O ... etc.             ', &
     '     ISN1 + O3 --> 0.25 MOH + 0.7 GLYX + 0.3 PROPNN + 0.75 CH2O + 0.7 NO2 ... etc.                  ', &
     '     ISN1 + OH --> 0.655 ISNOHOO + 0.345 ISNOOA                                                     ', &
     '  ISNOHOO + NO --> 0.04 ISN1OG + 0.919 GLYX + 0.894 PROPNN + 0.934 HO2 ... etc.                     ', &
     ' ISNOHOO + HO2 --> 0.04 ISN1OG + 0.96 INPN                                                          ', &
     ' ISNOHOO + MO2 --> 0.04 ISN1OG + 0.25 MOH + 0.7 GLYX + 0.66 PROPNN + 0.75 CH2O ... etc.             ', &
     '        2 INO2 --> 0.5 ISOPND + 0.07 CH2O + 1.2 ISN1 + 0.23 HC5 + 0.035 MACR ... etc.               ', &
     '     PRN1 + NO --> CH2O + ALD2 + 2 NO2                                                              ', &
     '    ALK4 + NO3 --> HNO3 + R4O2                                                                      ', &
     '     R4N2 + OH --> R4N1 + H2O                                                                       ', &
     '     ACTA + OH --> CO2 + PACTA + MO2 + H2O                                                          ', &
     '     RCHO + OH --> RCO3 + H2O                                                                       ', &
     '    RCO3 + NO2 --> PPN                                                                              ', &
     '           PPN --> RCO3 + NO2                                                                       ', &
     '   IMAO3 + NO2 --> IPMN                                                                             ', &
     '   NMAO3 + NO2 --> NPMN                                                                             ', &
     '          IPMN --> IMAO3 + NO2                                                                      ', &
     '          NPMN --> NMAO3 + NO2                                                                      ', &
     '     RCO3 + NO --> ETO2 + NO2                                                                       ', &
     '    NMAO3 + NO --> CO2 + 0.5 CH2O + NO2 + 0.5 MCO3 + 0.5 MO2 + 0.5 CO                               ', &
     '    RCHO + NO3 --> HNO3 + RCO3                                                                      ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_5 = (/ &
     '     ACET + OH --> ATO2 + H2O                                                                       ', &
     '    A3O2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 CH2O + 0.75 RCHO + HO2                                ', &
     '     PO2 + MO2 --> 0.25 ROH + 0.25 MOH + 1.25 CH2O + 0.16 HAC + 0.5 ALD2 ... etc.                   ', &
     '    R4O2 + HO2 --> R4P                                                                              ', &
     '    R4N1 + HO2 --> R4N2                                                                             ', &
     '    ATO2 + HO2 --> 0.85 ATOOH + 0.15 CH2O + 0.15 MCO3 + 0.15 OH                                     ', &
     '     KO2 + HO2 --> 0.85 ATOOH + 0.15 ALD2 + 0.15 MCO3 + 0.15 OH                                     ', &
     '    RIO2 + HO2 --> 0.272 RIPB + 0.628 RIPA + 0.037 RIPD + 0.063 CH2O + 0.025 MACR ... etc.          ', &
     '    VRO2 + HO2 --> 0.1 VRP + 0.578 GLYC + 0.102 CH2O + 0.102 MGLY + 0.033 RCHO ... etc.             ', &
     '    MRO2 + HO2 --> MRP                                                                              ', &
     '    MAN2 + HO2 --> 0.85 MAOP + 0.075 PROPNN + 0.075 CH2O + 0.075 MGLY + 0.925 NO2 ... etc.          ', &
     '    B3O2 + HO2 --> RB3P                                                                             ', &
     '    INO2 + HO2 --> INPN                                                                             ', &
     '    PRN1 + HO2 --> PRPN                                                                             ', &
     '      MEK + OH --> KO2 + H2O                                                                        ', &
     '    ETO2 + MO2 --> 0.25 EOH + 0.25 MOH + 0.75 CH2O + 0.75 ALD2 + HO2                                ', &
     '     NO3 + MEK --> HNO3 + KO2                                                                       ', &
     '    R4O2 + MO2 --> 0.25 ROH + 0.16 ACET + 0.25 MOH + 0.03 A3O2 + 0.09 B3O2 ... etc.                 ', &
     '    R4N1 + MO2 --> 0.25 ROH + 0.25 MOH + 0.95 CH2O + 0.15 R4O2 + 0.38 ALD2 ... etc.                 ', &
     '    ATO2 + MO2 --> 0.5 MOH + 0.5 CH2O + 0.5 MGLY + 0.2 HAC + 0.3 MCO3 + 0.3 HO2 ... etc.            ', &
     '     KO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 CH2O + 0.5 ALD2 + 0.5 MCO3 ... etc.                   ', &
     '    RIO2 + MO2 --> 0.24 ROH + 0.24 MOH + 1.22 CH2O + 0.3 HC5 + 0.18 MACR ... etc.                   ', &
     '        2 RIO2 --> 0.09 DIBOO + 0.75 CH2O + 1.11 HC5 + 0.29 MACR + 0.45 MVK ... etc.                ', &
     '   HC5OO + MO2 --> 0.09 H2 + 0.25 ROH + 0.25 MOH + 0.13 GLYC + 0.95 CH2O ... etc.                   ', &
     '    VRO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.36 GLYC + 0.89 CH2O + 0.14 MGLY ... etc.                 ', &
     '    MRO2 + MO2 --> 0.15 ROH + 1.255 CH2O + 0.255 MGLY + 0.595 HAC + 1.7 HO2 ... etc.                ', &
     '    MAN2 + MO2 --> 0.375 PROPNN + 0.625 CH2O + 0.375 MGLY + 0.375 NO2 + 0.375 HO2 ... etc.          ', &
     '    B3O2 + MO2 --> 0.25 ROH + 0.75 ACET + 0.25 MOH + 0.75 CH2O + HO2                                ', &
     '    INO2 + MO2 --> 0.25 MOH + 0.25 ISOPND + 0.785 CH2O + 0.6 ISN1 + 0.115 HC5 ... etc.              ', &
     '    PRN1 + MO2 --> 0.25 ROH + 0.25 MOH + 1.25 CH2O + 0.5 ALD2 + 0.25 RCHO ... etc.                  ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_6 = (/ &
     '      EOH + OH --> ALD2 + HO2                                                                       ', &
     '      ROH + OH --> RCHO + HO2                                                                       ', &
     '        2 ETO2 --> 2 ALD2 + 2 HO2                                                                   ', &
     '        2 ETO2 --> EOH + ALD2                                                                       ', &
     '    ETO2 + HO2 --> ETP                                                                              ', &
     '    A3O2 + HO2 --> RA3P                                                                             ', &
     '     PO2 + HO2 --> PP                                                                               ', &
     '    MCO3 + HO2 --> 0.41 MAP + 0.15 ACTA + 0.15 O3 + 0.44 MO2 + 0.44 OH ... etc.                     ', &
     '    RCO3 + HO2 --> 0.15 RCOOH + 0.41 RP + 0.44 ETO2 + 0.15 O3 + 0.44 OH ... etc.                    ', &
     '   NMAO3 + HO2 --> 0.41 MAOP + 0.59 CH2O + 0.15 O3 + 0.39 MO2 + 0.39 CO ... etc.                    ', &
     '     PRPE + OH --> PO2                                                                              ', &
     '     PRPE + O3 --> 0.1 CH4 + 0.12 CH3CHOO + 0.12 CH2OO + 0.5 CH2O + 0.5 ALD2 ... etc.               ', &
     '     NPMN + OH --> HAC + NO2 + CO                                                                   ', &
     '     IPMN + OH --> 0.781 IMAE + 0.19 PAN + 0.19 CH2O + 0.03 HAC + 0.81 NO3 ... etc.                 ', &
     '     NPMN + O3 --> CH2O + NO3 + MCO3                                                                ', &
     '     IMAE + OH --> OH                                                                               ', &
     '     GLYC + OH --> 0.361 CO2 + 0.134 HCOOH + 0.134 GLYX + 0.732 CH2O + 0.773 HO2 ... etc.           ', &
     '     GLYC + OH --> HCOOH + CO + OH                                                                  ', &
     '    PRPE + NO3 --> PRN1                                                                             ', &
     '     GLYX + OH --> PGLYX + HO2 + 2 CO                                                               ', &
     '     MGLY + OH --> PMGLY + MCO3 + CO                                                                ', &
     '    GLYX + NO3 --> PGLYX + HNO3 + HO2 + 2 CO                                                        ', &
     '    MGLY + NO3 --> PMGLY + HNO3 + MCO3 + CO                                                         ', &
     '     ISOP + OH --> LISOPOH + RIO2                                                                   ', &
     '      MVK + OH --> VRO2                                                                             ', &
     '     MACR + OH --> 0.53 IMAO3 + 0.47 MRO2                                                           ', &
     '      HAC + OH --> MGLY + HO2                                                                       ', &
     '      HAC + OH --> 0.5 CO2 + 0.5 HCOOH + 0.5 ACTA + 0.5 MO2 + 0.5 CO + OH ... etc.                  ', &
     '   A3O2 + MCO3 --> RCHO + MO2 + HO2                                                                 ', &
     '    PO2 + MCO3 --> CH2O + ALD2 + MO2 + HO2                                                          ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_7 = (/ &
     '   A3O2 + MCO3 --> ACTA + RCHO                                                                      ', &
     '    PO2 + MCO3 --> ACTA + 0.65 HAC + 0.35 RCHO                                                      ', &
     '     ISOP + O3 --> 0.044 MVKOO + 0.044 MACROO + 0.11 CH2OO + 0.102 PRPE ... etc.                    ', &
     '      MVK + O3 --> 0.12 MGLOO + 0.12 CH2OO + 0.6 CH2O + 0.5 MGLY + 0.1 ALD2 ... etc.                ', &
     '     MACR + O3 --> 0.022 MGLYOO + 0.326 CH2OO + 0.12 CH2O + 0.88 MGLY + 0.098 MCO3 ... etc.         ', &
     '    ISOP + NO3 --> LISOPNO3 + INO2                                                                  ', &
     '    MACR + NO3 --> MAN2                                                                             ', &
     '    MACR + NO3 --> 0.5 IMAO3 + 0.5 MAOP + 0.5 HNO3 + 0.5 MRO2 + 0.5 HO2 ... etc.                    ', &
     '    RCO3 + MO2 --> ETO2 + CH2O + HO2                                                                ', &
     '   NMAO3 + MO2 --> 2 CH2O + MCO3 + HO2                                                              ', &
     '    RCO3 + MO2 --> RCOOH + CH2O                                                                     ', &
     '   NMAO3 + MO2 --> RCOOH + CH2O                                                                     ', &
     '     INPN + OH --> NO2 + MEK + OH                                                                   ', &
     '     INPN + OH --> 0.36 INO2 + 0.64 R4N2 + 0.64 OH                                                  ', &
     '     PRPN + OH --> 0.791 PROPNN + 0.209 PRN1 + 0.791 OH                                             ', &
     '      ETP + OH --> 0.36 ETO2 + 0.64 ALD2 + 0.64 OH                                                  ', &
     '     RA3P + OH --> 0.36 A3O2 + 0.64 RCHO + 0.64 OH                                                  ', &
     '     RB3P + OH --> 0.791 ACET + 0.209 B3O2 + 0.791 OH                                               ', &
     '      R4P + OH --> 0.209 R4O2 + 0.791 RCHO + 0.791 OH                                               ', &
     '       RP + OH --> RCO3                                                                             ', &
     '       PP + OH --> 0.209 PO2 + 0.791 HAC + 0.791 OH                                                 ', &
     '     RIPA + OH --> 0.007 LVOC + 0.243 HC5 + 0.75 RIO2 + 0.125 OH + 0.125 H2O ... etc.               ', &
     '     RIPB + OH --> 0.007 LVOC + 0.513 HC5 + 0.48 RIO2 + 0.26 OH + 0.26 H2O ... etc.                 ', &
     '     RIPD + OH --> 0.007 LVOC + 0.743 HC5 + 0.25 RIO2 + 0.375 OH + 0.375 H2O ... etc.               ', &
     '     RIPA + OH --> 0.007 LVOC + 0.272 IEPOXB + 0.578 IEPOXA + 0.143 HC5OO ... etc.                  ', &
     '     RIPB + OH --> 0.32 IEPOXB + 0.68 IEPOXA + OH                                                   ', &
     '     RIPD + OH --> 0.007 LVOC + 0.5 IEPOXD + 0.493 HC5OO + 0.5 OH                                   ', &
     '     LVOC + OH --> OH                                                                               ', &
     '   IEPOXA + OH --> IEPOXOO                                                                          ', &
     '   IEPOXB + OH --> IEPOXOO                                                                          ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_8 = (/ &
     '   IEPOXD + OH --> IEPOXOO                                                                          ', &
     ' IEPOXOO + HO2 --> 1.172 CO2 + 0.44 HC187 + 0.278 HCOOH + 0.085 GLYX + 0.025 GLYC ... etc.          ', &
     '  IEPOXOO + NO --> 0.858 CO2 + 0.473 HC187 + 0.142 HCOOH + 0.088 GLYX + 0.088 GLYC ... etc.         ', &
     '      IAP + OH --> 0.654 DHMOB + 0.346 HC5OO + 0.654 OH                                             ', &
     '      VRP + OH --> 0.209 VRO2 + 0.791 MEK + 0.791 OH                                                ', &
     '      MRP + OH --> MRO2                                                                             ', &
     '      MRP + OH --> CO2 + HAC + OH                                                                   ', &
     '     MAOP + OH --> NMAO3                                                                            ', &
     '     MAOP + OH --> MAOPO2                                                                           ', &
     ' MAOPO2 + MCO3 --> 2 CO2 + HAC + MO2 + OH                                                           ', &
     ' MAOPO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '  MAOPO2 + MO2 --> 0.7 CO2 + 0.3 ROH + CH2O + 0.7 HAC + 0.7 HO2 + 0.7 OH ... etc.                   ', &
     '      2 MAOPO2 --> 2 CO2 + 2 HAC + 2 OH                                                             ', &
     '  MAOPO2 + HO2 --> CO2 + HAC + 2 OH                                                                 ', &
     '   MAOPO2 + NO --> CO2 + HAC + NO2 + OH                                                             ', &
     '   MAOPO2 + NO --> HNO3                                                                             ', &
     '      MAP + OH --> MCO3                                                                             ', &
     '    C2H6 + NO3 --> HNO3 + ETO2                                                                      ', &
     '      HC5 + O3 --> 0.055 MGLYOO + 0.055 GAOO + 0.5 GLYC + 0.445 CH2O + 0.5 MGLY ... etc.            ', &
     '        2 MCO3 --> 2 MO2                                                                            ', &
     '    MCO3 + MO2 --> CH2O + MO2 + HO2                                                                 ', &
     '    MCO3 + MO2 --> ACTA + CH2O                                                                      ', &
     '   R4O2 + MCO3 --> 0.32 ACET + 0.05 A3O2 + 0.18 B3O2 + 0.32 ETO2 + 0.32 ALD2 ... etc.               ', &
     '   ATO2 + MCO3 --> CH2O + MCO3 + MO2                                                                ', &
     '    KO2 + MCO3 --> ALD2 + MCO3 + MO2                                                                ', &
     '   RIO2 + MCO3 --> CO2 + 0.113 DIBOO + 0.747 CH2O + 0.14 HC5 + 0.294 MACR ... etc.                  ', &
     '  HC5OO + MCO3 --> 0.17 MOBA + 0.29 DHMOB + 0.216 GLYX + 0.234 GLYC + 0.234 MGLY ... etc.           ', &
     '   VRO2 + MCO3 --> 0.6 GLYC + 0.4 CH2O + 0.4 MGLY + 0.6 MCO3 + MO2 + 0.4 HO2 ... etc.               ', &
     '   MRO2 + MCO3 --> 0.143 CH2O + 0.143 MGLY + 0.857 HAC + MO2 + 0.85 HO2 ... etc.                    ', &
     '   B3O2 + MCO3 --> ACET + MO2 + HO2                                                                 ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_9 = (/ &
     '   R4N1 + MCO3 --> 0.39 CH2O + 0.3 R4O2 + 0.75 ALD2 + 0.57 RCHO + NO2 + MO2 ... etc.                ', &
     '   MAN2 + MCO3 --> CO2 + 0.5 PROPNN + 0.5 CH2O + 0.5 MGLY + 0.5 NO2 + MO2 ... etc.                  ', &
     '   INO2 + MCO3 --> 0.07 CH2O + 0.7 ISN1 + 0.23 HC5 + 0.035 MACR + 0.035 MVK ... etc.                ', &
     '   PRN1 + MCO3 --> CH2O + ALD2 + NO2 + MO2                                                          ', &
     '   R4O2 + MCO3 --> ACTA + MEK                                                                       ', &
     '   ATO2 + MCO3 --> ACTA + MGLY                                                                      ', &
     '    KO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '   RIO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '  HC5OO + MCO3 --> ACTA + MEK                                                                       ', &
     '   VRO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '   MRO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '   R4N1 + MCO3 --> ACTA + RCHO + NO2                                                                ', &
     '   MAN2 + MCO3 --> ACTA + RCHO + NO2                                                                ', &
     '   INO2 + MCO3 --> ACTA + RCHO + NO2                                                                ', &
     '   PRN1 + MCO3 --> ACTA + RCHO + NO2                                                                ', &
     '   B3O2 + MCO3 --> ACET + ACTA                                                                      ', &
     '   ETO2 + MCO3 --> ALD2 + MO2 + HO2                                                                 ', &
     '   ETO2 + MCO3 --> ACTA + ALD2                                                                      ', &
     '   RCO3 + MCO3 --> ETO2 + MO2                                                                       ', &
     '  NMAO3 + MCO3 --> CH2O + MCO3 + MO2                                                                ', &
     '   ISOPNB + O3 --> 0.36 CO2 + 0.16 HCOOH + 0.41 HNO3 + 0.21 MVKN + 0.32 MACRN ... etc.              ', &
     '   ISOPND + O3 --> 0.63 CO2 + 0.09 EOH + 0.26 ETHLN + 0.3 HNO3 + 0.24 MOH ... etc.                  ', &
     '      HC5 + OH --> HC5OO                                                                            ', &
     '    HC5OO + NO --> 0.17 MOBA + 0.29 DHMOB + 0.216 GLYX + 0.234 GLYC + 0.234 MGLY ... etc.           ', &
     '    HC5OO + NO --> HNO3                                                                             ', &
     '   HC5OO + HO2 --> 0.1 IAP + 0.9 GLYC + 0.9 MGLY + 0.9 HO2 + 0.9 OH                                 ', &
     '   ISOPND + OH --> 0.1 IEPOXD + 0.9 ISOPNDO2 + 0.1 NO2                                              ', &
     '   ISOPNB + OH --> 0.033 IEPOXB + 0.067 IEPOXA + 0.9 ISOPNBO2 + 0.1 NO2 ... etc.                    ', &
     ' ISOPNDO2 + NO --> 0.27 DHDN + 0.057 HCOOH + 0.21 ETHLN + 0.075 MVKN + 0.057 ISOPNDO2 ... etc.      ', &
     'ISOPNDO2 + HO2 --> 0.5 ISNP + 0.2 ETHLN + 0.06 MVKN + 0.01 MACRN + 0.23 PROPNN ... etc.             ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_10 = (/ &
     ' ISOPNBO2 + NO --> 0.21 DHDN + 0.26 MVKN + 0.44 MACRN + 0.09 GLYC + 0.7 CH2O ... etc.               ', &
     'ISOPNBO2 + HO2 --> 0.51 ISNP + 0.16 MVKN + 0.28 MACRN + 0.06 GLYC + 0.44 CH2O ... etc.              ', &
     '     ISNP + OH --> 0.193 ISOPNDO2 + 0.193 ISOPNBO2 + 0.612 R4N1 + 0.612 OH ... etc.                 ', &
     '     MVKN + OH --> 0.35 PYAC + 0.65 HCOOH + 0.35 CH2O + 0.65 MGLY + NO3 ... etc.                    ', &
     '    MACRN + OH --> MACRNO2                                                                          ', &
     '  MACRNO2 + NO --> 0.93 CO2 + 0.07 HCOOH + 0.08 ACTA + 0.08 CH2O + 0.07 MGLY ... etc.               ', &
     ' MACRNO2 + HO2 --> 0.93 CO2 + 0.07 HCOOH + 0.08 ACTA + 0.08 CH2O + 0.07 MGLY ... etc.               ', &
     ' MACRNO2 + NO2 --> PMNN                                                                             ', &
     '          PMNN --> MACRNO2 + NO2                                                                    ', &
     '    DHMOB + OH --> 0.5 HAC + 0.5 MEK + HO2 + 1.5 CO                                                 ', &
     '    DIBOO + NO --> 0.48 GLYX + 0.52 GLYC + 0.52 MGLY + 0.48 HAC + NO2 + HO2 ... etc.                ', &
     '    DIBOO + NO --> HNO3                                                                             ', &
     '   DIBOO + HO2 --> 0.85 R4P + 0.072 GLYX + 0.078 GLYC + 0.078 MGLY + 0.072 HAC ... etc.             ', &
     '     MOBA + OH --> MOBAOO                                                                           ', &
     '   MOBAOO + NO --> CO2 + RCHO + NO2 + HO2                                                           ', &
     '   MOBAOO + NO --> HNO3                                                                             ', &
     '  MOBAOO + HO2 --> 0.5 CO2 + 0.5 R4P + 0.5 RCHO + 0.5 HO2 + 0.5 OH                                  ', &
     '     MOBA + O3 --> CO2 + MEK + HO2 + OH                                                             ', &
     '    ETHLN + OH --> CO2 + CH2O + NO2                                                                 ', &
     '   PROPNN + OH --> MGLY + NO2                                                                       ', &
     '    CH2OO + CO --> CH2O                                                                             ', &
     '    CH2OO + NO --> CH2O + NO2                                                                       ', &
     '   CH2OO + NO2 --> CH2O + NO3                                                                       ', &
     '   CH2OO + H2O --> H2O2 + CH2O                                                                      ', &
     '   CH2OO + H2O --> HCOOH                                                                            ', &
     '   MACROO + CO --> MACR                                                                             ', &
     '   MACROO + NO --> MACR + NO2                                                                       ', &
     '  MACROO + NO2 --> MACR + NO3                                                                       ', &
     '  MACROO + H2O --> MRP                                                                              ', &
     '  MACROO + H2O --> H2O2 + MACR                                                                      ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_11 = (/ &
     '    MVKOO + CO --> MVK                                                                              ', &
     '    MVKOO + NO --> MVK + NO2                                                                        ', &
     '   MVKOO + NO2 --> MVK + NO3                                                                        ', &
     '   MVKOO + H2O --> H2O2 + MVK                                                                       ', &
     '   MGLYOO + CO --> MGLY                                                                             ', &
     '   MGLYOO + NO --> MGLY + NO2                                                                       ', &
     '  MGLYOO + NO2 --> MGLY + NO3                                                                       ', &
     '  MGLYOO + H2O --> H2O2 + MGLY                                                                      ', &
     '    MGLOO + CO --> MGLY                                                                             ', &
     '    MGLOO + NO --> MGLY + NO2                                                                       ', &
     '   MGLOO + NO2 --> MGLY + NO3                                                                       ', &
     '   MGLOO + H2O --> MCO3 + MO2                                                                       ', &
     '   MGLOO + H2O --> H2O2 + MGLY                                                                      ', &
     '  CH3CHOO + CO --> ALD2                                                                             ', &
     '  CH3CHOO + NO --> ALD2 + NO2                                                                       ', &
     ' CH3CHOO + NO2 --> ALD2 + NO3                                                                       ', &
     ' CH3CHOO + H2O --> H2O2 + ALD2                                                                      ', &
     ' CH3CHOO + H2O --> ACTA                                                                             ', &
     '     GAOO + CO --> GLYC                                                                             ', &
     '     GAOO + NO --> GLYC + NO2                                                                       ', &
     '    GAOO + NO2 --> GLYC + NO3                                                                       ', &
     '    GAOO + H2O --> H2O2 + GLYC                                                                      ', &
     '    GAOO + H2O --> HAC                                                                              ', &
     '    HC187 + OH --> CH2O + 0.5 MGLY + 0.5 MCO3 + 0.5 HO2 + 0.5 CO                                    ', &
     '    HPALD + OH --> 0.085 CO2 + 0.365 HPC52O2 + 0.085 GLYX + 0.55 CH2O + 0.55 MGLY ... etc.          ', &
     '  DHPCARP + NO --> GLYX + MGLY + NO2 + OH                                                           ', &
     '  HPC52O2 + NO --> GLYX + MGLY + NO2 + OH                                                           ', &
     ' DHPCARP + HO2 --> RCOOH                                                                            ', &
     ' HPC52O2 + HO2 --> RCOOH                                                                            ', &
     '       DHPCARP --> RCOOH + CO + OH                                                                  ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_12 = (/ &
     '       DHPCARP --> DHDC                                                                             ', &
     '          ALD2 --> 0.12 MCO3 + 0.88 MO2 + HO2 + 0.88 CO                                             ', &
     '           PAN --> 0.7 NO2 + 0.3 NO3 + 0.7 MCO3 + 0.3 MO2                                           ', &
     '          RCHO --> ETO2 + HO2 + CO                                                                  ', &
     '          ACET --> MCO3 + MO2                                                                       ', &
     '          ACET --> 2 MO2 + CO                                                                       ', &
     '           MEK --> 0.85 ETO2 + 0.15 RCO3 + 0.85 MCO3 + 0.15 MO2                                     ', &
     '          GLYC --> 0.1 MOH + 0.9 CH2O + 1.73 HO2 + CO + 0.07 OH                                     ', &
     '          GLYX --> PGLYX + 2 HO2 + 2 CO                                                             ', &
     '          GLYX --> PGLYX + H2 + 2 CO                                                                ', &
     '          GLYX --> PGLYX + CH2O + CO                                                                ', &
     '          MGLY --> PMGLY + MCO3 + HO2 + CO                                                          ', &
     '           MVK --> PRPE + CO                                                                        ', &
     '           MVK --> CH2O + MCO3 + HO2 + CO                                                           ', &
     '           MVK --> RCO3 + MO2                                                                       ', &
     '          MACR --> CH2O + MCO3 + HO2 + CO                                                           ', &
     '           HAC --> CH2O + MCO3 + HO2                                                                ', &
     '          INPN --> RCHO + NO2 + HO2 + OH                                                            ', &
     '          PRPN --> RCHO + NO2 + HO2 + OH                                                            ', &
     '           ETP --> ALD2 + HO2 + OH                                                                  ', &
     '          RA3P --> RCHO + HO2 + OH                                                                  ', &
     '          RB3P --> ACET + HO2 + OH                                                                  ', &
     '           R4P --> RCHO + HO2 + OH                                                                  ', &
     '            PP --> CH2O + ALD2 + HO2 + OH                                                           ', &
     '            RP --> ALD2 + HO2 + OH                                                                  ', &
     '          RIPA --> 0.005 LVOC + 0.71 CH2O + 0.275 HC5 + 0.285 MACR + 0.425 MVK ... etc.             ', &
     '          RIPB --> 0.005 LVOC + 0.71 CH2O + 0.275 HC5 + 0.285 MACR + 0.425 MVK ... etc.             ', &
     '          RIPD --> 0.005 LVOC + 0.71 CH2O + 0.275 HC5 + 0.285 MACR + 0.425 MVK ... etc.             ', &
     '           IAP --> 0.19 H2 + 0.26 GLYC + 0.58 MGLY + 0.36 HAC + HO2 + 0.67 CO ... etc.              ', &
     '          ISNP --> RCHO + NO2 + HO2 + OH                                                            ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_13 = (/ &
     '           VRP --> 0.7 GLYC + 0.3 CH2O + 0.3 MGLY + 0.7 MCO3 + 0.3 HO2 ... etc.                     ', &
     '           MRP --> 0.5 CH2O + HAC + HO2 + 0.5 CO + OH                                               ', &
     '          MAOP --> CH2O + MCO3 + OH                                                                 ', &
     '          R4N2 --> 0.32 ACET + 0.05 A3O2 + 0.18 B3O2 + 0.32 ETO2 + 0.32 ALD2 ... etc.               ', &
     '           MAP --> MO2 + OH                                                                         ', &
     '         MACRN --> 0.5 CH2O + MGLY + HAC + NO2 + HO2 + 0.5 CO                                       ', &
     '          MVKN --> GLYC + NO2 + MCO3                                                                ', &
     '        ISOPNB --> HC5 + NO2 + HO2                                                                  ', &
     '        ISOPND --> HC5 + NO2 + HO2                                                                  ', &
     '        PROPNN --> CH2O + NO2 + MO2 + CO                                                            ', &
     '         ATOOH --> CH2O + MCO3 + OH                                                                 ', &
     '          IPMN --> 0.4 CO2 + 0.6 IMAO3 + 0.4 CH2O + 0.6 NO2 + 0.4 NO3 + 0.4 MCO3 ... etc.           ', &
     '         ETHLN --> CH2O + NO2 + HO2 + CO                                                            ', &
     '          DHDC --> GLYX + MGLY + 2 OH                                                               ', &
     '         HPALD --> 0.11 GLYC + 0.5 MGLY + 0.39 HAC + 0.11 MCO3 + 0.89 HO2 ... etc.                  ', &
     '          ISN1 --> 0.25 GLYX + 0.5 GLYC + CH2O + 0.25 MGLY + 0.5 HAC + NO2 ... etc.                 ', &
     '     BENZ + OH --> LBENZ + 0.54 PHENOL + 0.58 AROMP + 0.18 GLYX + 0.46 AROMRO2 ... etc.             ', &
     '     TOLU + OH --> LTOLU + 0.06 BZALD + 0.19 CRESOL + 0.7 AROMP + 0.35 IDC ... etc.                 ', &
     '     XYLE + OH --> 0.47 RCOOH + LXYLE + 0.06 BZALD + 0.15 CRESOL + 0.3 AROMP ... etc.               ', &
     ' AROMRO2 + HO2 --> HO2 + OH                                                                         ', &
     '  AROMRO2 + NO --> NO2 + HO2                                                                        ', &
     ' AROMRO2 + NO3 --> NO2 + HO2                                                                        ', &
     ' AROMRO2 + MO2 --> CH2O + 2 HO2                                                                     ', &
     'AROMRO2 + MCO3 --> MO2 + HO2                                                                        ', &
     '   PHENOL + OH --> PPHENOL + 0.8 CATECH + 0.18 AROMP + 0.06 BENZO + 0.06 GLYX ... etc.              ', &
     '  PHENOL + NO3 --> PPHENOL + 0.742 BENZO + 0.742 HNO3 + 0.258 NPHEN                                 ', &
     '   CRESOL + OH --> PCRESOL + 0.727 CATECH + 0.3 AROMP + 0.2 IDC + 0.073 BENZO ... etc.              ', &
     '  CRESOL + NO3 --> PCRESOL + 0.3 AROMP + 0.2 IDC + 0.3 BENZO + 0.5 HNO3 ... etc.                    ', &
     '   CATECH + OH --> PCATECH + 1.05 AROMP + 0.3 BENZO + 0.7 AROMRO2                                   ', &
     '   CATECH + O3 --> PCATECH + AROMP + GAOO + HO2 + OH                                                ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_14 = (/ &
     '  CATECH + NO3 --> PCATECH + 0.3 AROMP + 0.3 BENZO + 0.5 HNO3 + 0.2 AROMRO2 ... etc.                ', &
     '         BZALD --> PBZALD + BENZO2 + HO2 + CO                                                       ', &
     '    BZALD + OH --> PBZALD + BZCO3                                                                   ', &
     '   BZALD + NO3 --> PBZALD + HNO3 + BZCO3                                                            ', &
     '   BZCO3 + HO2 --> 0.35 CO2 + 0.65 BZCO3H + 0.15 BENZP + 0.2 BENZO2 + 0.15 O3 ... etc.              ', &
     '    BZCO3 + NO --> CO2 + BENZO2 + NO2                                                               ', &
     '   BZCO3 + NO2 --> BZPAN                                                                            ', &
     '   BZCO3H + OH --> BZCO3                                                                            ', &
     '        BZCO3H --> CO2 + BENZO2 + OH                                                                ', &
     '         BZPAN --> BZCO3 + NO2                                                                      ', &
     '    BZPAN + OH --> CO2 + BENZP + NO2                                                                ', &
     '  BENZO2 + NO2 --> BENZO + NO3                                                                      ', &
     '   BENZO2 + NO --> BENZO + NO2                                                                      ', &
     '  BENZO2 + NO3 --> BENZO + NO2                                                                      ', &
     '  BENZO2 + HO2 --> BENZP                                                                            ', &
     '    BENZP + OH --> PBENZP + BENZO2                                                                  ', &
     '         BENZP --> PBENZP + BENZO                                                                   ', &
     '    BENZO + O3 --> BENZO2                                                                           ', &
     '   BENZO + NO2 --> NPHEN                                                                            ', &
     '         NPHEN --> CO2 + PNPHEN + HNO2 + AROMP + HO2 + CO                                           ', &
     '    NPHEN + OH --> PNPHEN + AROMP + 0.5 R4N1 + 0.5 NO2                                              ', &
     '   NPHEN + NO3 --> PNPHEN + AROMP + 0.5 HNO3 + 0.5 R4N1 + NO2                                       ', &
     '  BENZO2 + MO2 --> BENZO + CH2O + HO2                                                               ', &
     '   BZCO3 + MO2 --> CO2 + BENZO2 + CH2O + HO2                                                        ', &
     '    AROMP + OH --> 0.45 RCOOH + 0.25 HCOOH + 0.6 GLYX + 0.33 RCO3 + 0.33 HO2 ... etc.               ', &
     '    AROMP + O3 --> 0.1 CO2 + 0.5 HCOOH + 0.4 GAOO + GLYX + 0.1 HO2 + 0.6 CO ... etc.                ', &
     '         AROMP --> 0.25 RCO3 + RCHO + 0.25 HO2 + 0.25 CO                                            ', &
     '      IDC + OH --> 0.52 RCOOH + 0.1 HCOOH + 0.15 ACTA + 0.6 MGLY + 0.33 RCO3 ... etc.               ', &
     '      IDC + O3 --> 0.1 CO2 + 0.2 HCOOH + 0.3 ACTA + 0.25 GAOO + MGLY + 0.1 HO2 ... etc.             ', &
     '           IDC --> 0.25 R4O2 + 0.15 MVK + RCHO + 0.4 HO2 + 0.4 CO                                   ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_15 = (/ &
     ' BENZO2 + MO2m --> BENZO + CH2Om + HO2                                                              ', &
     '  BZCO3 + MO2m --> CO2 + CH2Om + BENZO2 + HO2                                                       ', &
     'AROMRO2 + MO2m --> CH2Om + 2 HO2                                                                    ', &
     '            O2 --> CH4m                                                                             ', &
     '            O2 --> COm                                                                              ', &
     '            O2 --> O3                                                                               ', &
     '            O2 --> CH2Om                                                                            ', &
     '            O2 --> NO                                                                               ', &
     '            O2 --> BENZ                                                                             ', &
     '            O2 --> TOLU                                                                             ', &
     '            O2 --> XYLE                                                                             ', &
     '          A3O2 --> O2                                                                               ', &
     '          ACET --> O2                                                                               ', &
     '          ACTA --> PACTA + O2                                                                       ', &
     '          ALD2 --> O2                                                                               ', &
     '          ALK4 --> O2                                                                               ', &
     '          ATO2 --> O2                                                                               ', &
     '         ATOOH --> O2                                                                               ', &
     '          B3O2 --> O2                                                                               ', &
     '          BENZ --> O2                                                                               ', &
     '          C2H4 --> O2                                                                               ', &
     '          C2H6 --> O2                                                                               ', &
     '          C3H8 --> O2                                                                               ', &
     '          CH2O --> PCH2O + O2                                                                       ', &
     '         CH2OO --> O2                                                                               ', &
     '       CH3CHOO --> O2                                                                               ', &
     '            CO --> O2                                                                               ', &
     '           CO2 --> O2                                                                               ', &
     '          DHDN --> O2                                                                               ', &
     '          DHDC --> O2                                                                               ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_16 = (/ &
     '         DHMOB --> O2                                                                               ', &
     '       DHPCARP --> O2                                                                               ', &
     '         DIBOO --> O2                                                                               ', &
     '           EOH --> O2                                                                               ', &
     '         ETHLN --> O2                                                                               ', &
     '          ETO2 --> O2                                                                               ', &
     '           ETP --> O2                                                                               ', &
     '          GAOO --> O2                                                                               ', &
     '          GLYC --> O2                                                                               ', &
     '          GLYX --> PGLYX + O2                                                                       ', &
     '          H2O2 --> O2                                                                               ', &
     '           HAC --> O2                                                                               ', &
     '         HC187 --> O2                                                                               ', &
     '           HC5 --> O2                                                                               ', &
     '         HC5OO --> O2                                                                               ', &
     '         HCOOH --> PHCOOH + O2                                                                      ', &
     '          HNO2 --> O2                                                                               ', &
     '          HNO3 --> O2                                                                               ', &
     '          HNO4 --> O2                                                                               ', &
     '           HO2 --> O2                                                                               ', &
     '         HPALD --> O2                                                                               ', &
     '       HPC52O2 --> O2                                                                               ', &
     '           IAP --> O2                                                                               ', &
     '        IEPOXA --> O2                                                                               ', &
     '        IEPOXB --> O2                                                                               ', &
     '        IEPOXD --> O2                                                                               ', &
     '       IEPOXOO --> O2                                                                               ', &
     '          IMAE --> O2                                                                               ', &
     '         IMAO3 --> O2                                                                               ', &
     '          INO2 --> O2                                                                               ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_17 = (/ &
     '          INPN --> O2                                                                               ', &
     '          IPMN --> O2                                                                               ', &
     '          ISN1 --> O2                                                                               ', &
     '        ISN1OG --> O2                                                                               ', &
     '        ISNOOA --> O2                                                                               ', &
     '        ISNOOB --> O2                                                                               ', &
     '       ISNOHOO --> O2                                                                               ', &
     '          ISNP --> O2                                                                               ', &
     '          ISOP --> O2                                                                               ', &
     '        ISOPNB --> O2                                                                               ', &
     '      ISOPNBO2 --> O2                                                                               ', &
     '        ISOPND --> O2                                                                               ', &
     '      ISOPNDO2 --> O2                                                                               ', &
     '           KO2 --> O2                                                                               ', &
     '          LVOC --> O2                                                                               ', &
     '          MACR --> O2                                                                               ', &
     '         MACRN --> O2                                                                               ', &
     '       MACRNO2 --> O2                                                                               ', &
     '        MACROO --> O2                                                                               ', &
     '          MAN2 --> O2                                                                               ', &
     '          MAOP --> O2                                                                               ', &
     '        MAOPO2 --> O2                                                                               ', &
     '           MAP --> O2                                                                               ', &
     '           MBO --> O2                                                                               ', &
     '         MBOOO --> O2                                                                               ', &
     '          MCO3 --> O2                                                                               ', &
     '           MEK --> O2                                                                               ', &
     '         MGLOO --> O2                                                                               ', &
     '          MGLY --> PMGLY + O2                                                                       ', &
     '        MGLYOO --> O2                                                                               ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_18 = (/ &
     '          MOBA --> O2                                                                               ', &
     '        MOBAOO --> O2                                                                               ', &
     '           MO2 --> O2                                                                               ', &
     '            MP --> O2                                                                               ', &
     '           MPN --> O2                                                                               ', &
     '          MRO2 --> O2                                                                               ', &
     '           MRP --> O2                                                                               ', &
     '           MVK --> O2                                                                               ', &
     '          MVKN --> O2                                                                               ', &
     '         MVKOO --> O2                                                                               ', &
     '          N2O5 --> O2                                                                               ', &
     '         NMAO3 --> O2                                                                               ', &
     '            NO --> O2                                                                               ', &
     '           NO2 --> O2                                                                               ', &
     '           NO3 --> O2                                                                               ', &
     '          NPMN --> O2                                                                               ', &
     '           O1D --> O2                                                                               ', &
     '            O3 --> O2                                                                               ', &
     '            OH --> O2                                                                               ', &
     '           PAN --> O2                                                                               ', &
     '          PMNN --> O2                                                                               ', &
     '         PMNO2 --> O2                                                                               ', &
     '           PO2 --> O2                                                                               ', &
     '            PP --> O2                                                                               ', &
     '           PPN --> O2                                                                               ', &
     '          PRN1 --> O2                                                                               ', &
     '          PRPE --> O2                                                                               ', &
     '          PRPN --> O2                                                                               ', &
     '        PROPNN --> O2                                                                               ', &
     '          PYAC --> O2                                                                               ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_19 = (/ &
     '          R4N1 --> O2                                                                               ', &
     '          R4N2 --> O2                                                                               ', &
     '          R4O2 --> O2                                                                               ', &
     '           R4P --> O2                                                                               ', &
     '          RA3P --> O2                                                                               ', &
     '          RB3P --> O2                                                                               ', &
     '          RCHO --> O2                                                                               ', &
     '          RCO3 --> O2                                                                               ', &
     '          RIO2 --> O2                                                                               ', &
     '          RIPA --> O2                                                                               ', &
     '          RIPB --> O2                                                                               ', &
     '          RIPD --> O2                                                                               ', &
     '           ROH --> O2                                                                               ', &
     '            RP --> O2                                                                               ', &
     '          TOLU --> O2                                                                               ', &
     '          VRO2 --> O2                                                                               ', &
     '           VRP --> O2                                                                               ', &
     '          XYLE --> O2                                                                               ', &
     '           CH4 --> O2                                                                               ', &
     '             H --> O2                                                                               ', &
     '            H2 --> O2                                                                               ', &
     '          MNO3 --> O2                                                                               ', &
     '           MOH --> O2                                                                               ', &
     '             O --> O2                                                                               ', &
     '         RCOOH --> O2                                                                               ', &
     '          BRO2 --> O2                                                                               ', &
     '          XRO2 --> O2                                                                               ', &
     '          TRO2 --> O2                                                                               ', &
     '          CH4m --> O2                                                                               ', &
     '           COm --> O2                                                                               ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(18) :: EQN_NAMES_20 = (/ &
     '         CH2Om --> O2                                                                               ', &
     '          MO2m --> O2                                                                               ', &
     '           MPm --> O2                                                                               ', &
     '          MPNm --> O2                                                                               ', &
     '          MOHm --> O2                                                                               ', &
     '        CRESOL --> PCRESOL + O2                                                                     ', &
     '        PHENOL --> PPHENOL + O2                                                                     ', &
     '         BZALD --> PBZALD + O2                                                                      ', &
     '        BENZO2 --> O2                                                                               ', &
     '         BENZP --> PBENZP + O2                                                                      ', &
     '         BZPAN --> O2                                                                               ', &
     '         BENZO --> O2                                                                               ', &
     '         NPHEN --> PNPHEN + O2                                                                      ', &
     '         BZCO3 --> O2                                                                               ', &
     '        CATECH --> PCATECH + O2                                                                     ', &
     '           IDC --> O2                                                                               ', &
     '         MVKPC --> O2                                                                               ', &
     '       AROMRO2 --> O2                                                                               ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(618) :: EQN_NAMES = (/&
    EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, &
    EQN_NAMES_5, EQN_NAMES_6, EQN_NAMES_7, EQN_NAMES_8, EQN_NAMES_9, &
    EQN_NAMES_10, EQN_NAMES_11, EQN_NAMES_12, EQN_NAMES_13, EQN_NAMES_14, &
    EQN_NAMES_15, EQN_NAMES_16, EQN_NAMES_17, EQN_NAMES_18, EQN_NAMES_19, &
    EQN_NAMES_20 /)

! INLINED global variables

! End INLINED global variables


END MODULE aromatics_kpp_Monitor
